home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 September (IDG) / Sep99.iso / Shareware World / Comms & Internet / LinkConverter 1.1.2 / Dialog Director v0.7 / Examples / Menu+.as < prev    next >
Encoding:
Text File  |  1998-01-12  |  823 b   |  17 lines  |  [TEXT/ToyS]
  1. on run
  2.     set d to current date
  3.     set dd to d's date string
  4.     DoMenu(["One", "Two", "Three", "Four", 5, 6, 7, 8, 9, 10, 11, 12, 13 ¬
  5.         , d's time string, word 1 of dd, third word of dd, last word of dd])
  6. end run
  7.  
  8. on DoMenu(theOptions)
  9.     dd auto dialog {size:[260, 295], contents:[¬
  10.         {class:push button, bounds:[190, 265, 250, 285], name:"OK"}, ¬
  11.         {class:push button, bounds:[110, 265, 170, 285], name:"Cancel"}, ¬
  12.         {class:group box, bounds:[10, 10, 250, 216], name:"Choose an option:", style:secondary group}, ¬
  13.         {class:radio group, bounds:[20, 30, 120, 46], button offset:[105, 20], max down:9, contents:theOptions}, ¬
  14.         {class:text field, name bounds:[10, 230, 40, 246], name:"Edit", bounds:¬
  15.             [50, 230, 250, 246], value:"The quick brown fox jumps over the lazy dog."} ¬
  16.             ], timeout after:60} with grayscale
  17. end DoMenu